Komputer for Alle 1998 #10/CD 10 (Black) - 1998.iso/tetris/_setup.1/Tetrice.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-10-04 | 6.4 KB | 292 lines

object Form1: TForm1
  Left = 202
  Top = 100
  Width = 206
  Height = 246
  BorderIcons = []
  Caption = 'Tetrice'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu1
  OnKeyDown = FormKeyDown
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 16
  object Bevel1: TBevel
    Left = 7
    Top = 55
    Width = 42
    Height = 51
  end
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 41
    Height = 16
    Caption = 'Score:'
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 112
    Width = 34
    Height = 16
    Caption = ' Next'
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 8
    Top = 144
    Width = 40
    Height = 16
    Caption = 'Level:'
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 3
    Top = 24
    Width = 52
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = '0'
  end
  object Label5: TLabel
    Left = 24
    Top = 168
    Width = 16
    Height = 16
    AutoSize = False
    Caption = '1'
  end
  object MediaPlayer1: TMediaPlayer
    Left = -8
    Top = 56
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 0
  end
  object MediaPlayer2: TMediaPlayer
    Left = -8
    Top = 64
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 80
    Top = 16
    object Game1: TMenuItem
      Caption = '&Game'
      ShortCut = 0
      object Newgame1: TMenuItem
        Caption = '&New game'
        ShortCut = 0
        OnClick = Newgame1Click
      end
      object Pause1: TMenuItem
        Caption = '&Pause'
        ShortCut = 0
        OnClick = Pause1Click
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object Speed1: TMenuItem
        Caption = 'Computer Speed'
        ShortCut = 0
        object N486SX331: TMenuItem
          Caption = '486 SX 33'
          RadioItem = True
          ShortCut = 0
          OnClick = N486SX331Click
        end
        object N486DX331: TMenuItem
          Caption = '486 DX 33'
          RadioItem = True
          ShortCut = 0
          OnClick = N486DX331Click
        end
        object N486DX661: TMenuItem
          Caption = '486 DX 66'
          RadioItem = True
          ShortCut = 0
          OnClick = N486DX661Click
        end
        object N5861331: TMenuItem
          Caption = '586 133'
          RadioItem = True
          ShortCut = 0
          OnClick = N5861331Click
        end
        object Pentium1001: TMenuItem
          Caption = 'Pentium 100'
          Checked = True
          RadioItem = True
          ShortCut = 0
          OnClick = Pentium1001Click
        end
        object Pentium1331: TMenuItem
          Caption = 'Pentium 133'
          RadioItem = True
          ShortCut = 0
          OnClick = Pentium1331Click
        end
        object Pentium1501: TMenuItem
          Caption = 'Pentium 150'
          RadioItem = True
          ShortCut = 0
          OnClick = Pentium1501Click
        end
        object Pentium2001: TMenuItem
          Caption = 'Pentium 200'
          RadioItem = True
          ShortCut = 0
          OnClick = Pentium2001Click
        end
        object PentiumII1: TMenuItem
          Caption = 'Pentium II 233'
          RadioItem = True
          ShortCut = 0
          OnClick = PentiumII1Click
        end
        object PentiumII3001: TMenuItem
          Caption = 'Pentium II 300'
          ShortCut = 0
          OnClick = PentiumII3001Click
        end
      end
      object Level1: TMenuItem
        Caption = '&Height'
        ShortCut = 0
        object N101: TMenuItem
          Caption = '20'
          ShortCut = 0
          OnClick = N101Click
        end
        object N121: TMenuItem
          Caption = '22'
          ShortCut = 0
          OnClick = N121Click
        end
        object N141: TMenuItem
          Caption = '24'
          ShortCut = 0
          OnClick = N141Click
        end
        object N161: TMenuItem
          Caption = '26'
          ShortCut = 0
          OnClick = N161Click
        end
        object N181: TMenuItem
          Caption = '28'
          ShortCut = 0
          OnClick = N181Click
        end
        object N201: TMenuItem
          Caption = '30'
          ShortCut = 0
          OnClick = N201Click
        end
      end
      object FullScreen1: TMenuItem
        Caption = '&Width'
        ShortCut = 0
        object N61: TMenuItem
          Caption = '6'
          ShortCut = 0
          OnClick = N61Click
        end
        object N81: TMenuItem
          Caption = '8'
          ShortCut = 0
          OnClick = N81Click
        end
        object N102: TMenuItem
          Caption = '10'
          ShortCut = 0
          OnClick = N102Click
        end
        object N122: TMenuItem
          Caption = '12'
          ShortCut = 0
          OnClick = N122Click
        end
        object N142: TMenuItem
          Caption = '14'
          ShortCut = 0
          OnClick = N142Click
        end
        object N162: TMenuItem
          Caption = '16'
          ShortCut = 0
          OnClick = N162Click
        end
        object N182: TMenuItem
          Caption = '18'
          ShortCut = 0
          OnClick = N182Click
        end
        object N202: TMenuItem
          Caption = '20'
          ShortCut = 0
          OnClick = N202Click
        end
        object N301: TMenuItem
          Caption = '30'
          ShortCut = 0
          OnClick = N301Click
        end
      end
      object Sound1: TMenuItem
        Caption = 'Soun&d'
        ShortCut = 0
        OnClick = Sound1Click
      end
    end
    object About1: TMenuItem
      Caption = '&About'
      ShortCut = 0
      OnClick = About1Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 300
    OnTimer = Timer1Timer
    Left = 128
    Top = 24
  end
  object Timer2: TTimer
    Interval = 65530
    OnTimer = Timer2Timer
    Left = 128
    Top = 96
  end
end